﻿''' <summary>
''' 配置文件类
''' </summary>
''' <remarks></remarks>
<Serializable()> _
Public Class clsConfig
    ''' <summary>
    ''' COPY句情报文件名
    ''' </summary>
    ''' <remarks></remarks>
    Public Property CopyInfoFileName() As String
    ''' <summary>
    ''' XML形式的COPY句的存放目录
    ''' </summary>
    ''' <remarks></remarks>
    Public Property CopyXMLFolder() As String
    ''' <summary>
    ''' PL1形式的COPY句的存放目录
    ''' </summary>
    ''' <remarks></remarks>
    Public Property CopySourceFolder() As String
    ''' <summary>
    ''' LOG文件名称
    ''' </summary>
    ''' <remarks></remarks>
    Public Property LogFileName() As String
    ''' <summary>
    ''' 错误信息文件名称
    ''' </summary>
    ''' <remarks></remarks>
    Public Property ErrorReportName() As String
    ''' <summary>
    ''' 文件情报文件名
    ''' </summary>
    ''' <remarks></remarks>
    Public Property FileInfoFileName() As String
    ''' <summary>
    ''' 是否有行号
    ''' </summary>
    ''' <remarks></remarks>
    Public Property HasNumberInDoc() As Boolean
    ''' <summary>
    ''' 作者名称
    ''' </summary>
    ''' <remarks></remarks>
    Public Property Author() As String
    ''' <summary>
    ''' 指示编译程序的计算机
    ''' </summary>
    ''' <remarks></remarks>
    Public Property SourceComputerName() As String
    ''' <summary>
    ''' 描述运行程序的计算机
    ''' </summary>
    ''' <remarks></remarks>
    Public Property ObjectComputerName() As String
    ''' <summary>
    ''' 创建文件状态标志
    ''' </summary>
    ''' <remarks></remarks>
    Public Property IsCreateFileStatus() As Boolean
    ''' <summary>
    ''' 初始化
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub Init()
        With MyConfig
            .CopyInfoFileName = "C:\ConversionTool\TestData\TMP\CopyBook.xml"
            .CopySourceFolder = "C:\ConversionTool\TestData\CPY\PL1\"
            .CopyXMLFolder = "C:\ConversionTool\TestData\CPY\XML\"
            .ErrorReportName = "C:\ConversionTool\TestData\TMP\ErrorInfo.Txt"
            .FileInfoFileName = "C:\ConversionTool\TestData\TMP\FileInfo.xml"
            .LogFileName = "C:\ConversionTool\TestData\TMP\BKEHIUOP.log"

            .Author = "IBM-GDC"
            .SourceComputerName = "IBM-390"
            .ObjectComputerName = "IBM-390"
            HasNumberInDoc = True
            IsCreateFileStatus = True
        End With
    End Sub
End Class
